setwd("D:/作业/R语言/附件/实践3")
a1=read.csv("x.csv")
a2=apply(a1[,3:66],1,function(x){sum(x=0)})
a3=apply(a1,2,function(x){sum(x=0)})   
         